10 SOUND ON
20 SCREEN 3:CLS:KEY OFF:COLOR 15,4
25 PLAY "MB","MB","MB"
30 PLAY "o1T112V15p8p2.P8.g16e8p2..","O2T112v4G8A-32<a-32>A-32<a-32v6>A-32<a-32>A-32v8<a-32>A-32v12<a-32>A-32<a-32>v13a-32<a-32>A-32v14<a-32>A-32<a-32>a-32<a-32>v15A-32<a-32>a-32<a-32>A-32<a-32>A-32<a-32P16B16>f8P2.<G8","o3T112v15g8p2.p8.g16>d-8p2.<g8"
40 PLAY "o1p8p2.p8.g16e8d-8p2g8a-8b-8b8","O2v4A-32<a-32>A-32v6<a-32>A-32<a-32>A-32v8<a-32>A-32<a-32>A-32v10<a-32>a-32<a-32>A-32<a-32>v12A-32<a-32>a-32<a-32>A-32v14<a-32>a-32<a-32>A-32v15<a-32>A-32<a-32p8.B16>f8g8p1","o3p2.p8p8.g16>d-8g8p1"
50 PLAY "o1c2<b8b-8a2b8>c8d2e8f8g4.g8<a8b8","o2e8e8e8e8e8e8e8e8e8e8e8e8f+8f+8f+8f+8f+8f+8a-4.a-4.","o3d8d8d8d8d8d8c8c8c8c8c8c8d8d8d8d8d8d8e-4.<b4>o3c16c+16"
60 PRINT
70 PRINT "Theme from"
80 PRINT "  PERRY MASON"
90 PLAY "o1c2<b8b-8a2b8>c8d2e8f8g4.g8<a8b8","o2e8e8e8e8e8e8e8e8e8e8e8e8f+8f+8f+8f+8f+8f+8a-4.f4.","o3mld2d8c8g8p2c16c+16d2d8c8a-8p2c16c+16"
100 PLAY "o1c2<b8b-8a2b8>c8d2e8f8g4.g8<a8b8","o2e8e8e8e8e8e8e8e8e8e8e8e8f+8f+8f+8f+8f+8f+8a-4.f4.","o3d4c8g4c8d4c8<g4>c16c+16d4c8a-2g8a-8b-8b8>c16c+16"
110 PLAY "o1c2<b8b-8a2b8>c8d2e8f8g4.g8<a8b8","o2e8e8e8e8e8e8e8e8e8e8e8e8f+8f+8f+8f+8f+8f+8a-4.f4.","o4d2d8c8g8p2c16c+16d2d8c8a-8p2c16c+16"
120 PLAY "o1c2<b8b-8a2b8>c8d2e8f8g4.g8<a8b8","o2e8e8e8e8e8e8e8e8e8e8e8e8f+8f+8f+8f+8f+8f+8a-8d8e-8f8g8>e-8","d4c8g4c8d4c8<g4>c16c+16d4c8a-2d8e-8f8g8a-8"
130 PLAY "o1c8c8c8c8<b8b-8a8a8a8a8b8>c8d8d8d8d8e8f8g8g8g8g8<a8b8","o2ml>d2d8e-8<g2g8a8>c2c8<b-8e-2e-8g8","o4a2a8g8c+2c+8d8f2f8e-8<b-2b-8b-8"
140 PLAY "o1c2<b8b-8a2b8>c8d2e8f8g4.g8<a8b8","o2f+4g8d4e-8f+4g8d4e-8f4g-8f4g-8g4a-8b-4f8","o3d4c8<g4>c8d4c8<b4>c8f4e-8d4e-8b-4a-8g4e-8"
150 PLAY "o1c8c8c8c8<b8b-8a8a8a8a8b8>c8d8d8d8d8e8f8g8g8g8g8<a8b8","o2e8e8e8e8e8e8e8e8e8e8e8e8f+8f+8f+8f+8f+8f+8a-4.f4.","o3d2d8c8g8p2c16c+16d2d8c8a-8p2c16c+16"
160 PLAY "o1c2<b8b-8a2b8>c8d2e8f8g4.g8<a8b8","o2e8e8e8e8e8e8e8e8e8e8e8e8f+8f+8f+8f+8f+8f+8a-4.f4.","o3d4c8g4c8d4c8<g4>c16c+16d4c8a-2g8a-8b-8b8c16c+16"
170 PLAY "o1c2<b8b-8a2b8>c8d2e8f8g4.g8<a8b8","o2mng8g8g8g8g8g8>c8c8c8c8c8<g8f+8f+8f+8f+8f+8f+8a-4.f8p4","o3d2d8c8g8p2c16c+16d2d8c8a-8p4.<b8>e-8"
180 PLAY "o1c2d8e-8f2e8e-8d2g8g8g8g8a-8a8b-8b8","o2e-2.g2.a-4a8b2.b4.","o3d4c8<g4>c8d4c8<b4>c8f4e-8b-2.b-4."
190 PLAY "o1d4.f4.g8V10g4g2.V15g4.<C1","O2a-4a8b-4.e-8V10e-4>e-8d8d-8V12<b8b-8a8V14a-8g8b8>MLV15f+1","o3f4e-8b-4.<b-8V10b-4>g8a8e8V12f8d-8d8<b-8V14b8>d8V15a1"
200 IK$=INKEY$
210 IF IK$ = "" THEN GOTO 200
220 SCREEN 0,1:FILES:END
